﻿Public Class TablesMaintienINCINVIntegreesFactory
    Implements ITablesMaintienINCINVFactory

    Public ReadOnly Property Item(ByVal NomTable As String) As ITableMaintienINCAPINVAL Implements ITablesMaintienINCINVFactory.Item
        Get
            Dim result As ITableMaintienINCAPINVAL = Nothing
            Select Case NomTable
                Case MaintienINCINV_CNP.Nom
                    result = MaintienINCINV_CNP
            End Select
            Return result
        End Get
    End Property

    Private m_MaintienINCINV_CNP As ITableMaintienINCAPINVAL
    Public ReadOnly Property MaintienINCINV_CNP As ITableMaintienINCAPINVAL Implements ITablesMaintienINCINVFactory.MaintienINCINV_CNP
        Get
            If m_MaintienINCINV_CNP Is Nothing Then
                m_MaintienINCINV_CNP = New TableMaintienINCAPINVAL_CNP
            End If
            Return m_MaintienINCINV_CNP
        End Get
    End Property

    Private m_NomsTablesDisponibles As List(Of String)
    Public ReadOnly Property NomsTablesDisponibles As System.Collections.Generic.List(Of String) Implements ITablesMaintienINCINVFactory.NomsDisponibles
        Get
            If m_NomsTablesDisponibles Is Nothing Then
                m_NomsTablesDisponibles = New List(Of String)({MaintienINCINV_CNP.Nom})
            End If
            Return m_NomsTablesDisponibles
        End Get
    End Property
End Class
